inherited dtmcw_YFPayMaster: Tdtmcw_YFPayMaster
  OldCreateOrder = True
  Left = 383
  Top = 211
  Height = 414
  Width = 659
  inherited adsMaster: TADODataSet
    CursorType = ctStatic
    CommandText = 'Select * from V_cw_YFPayMaster where 0=1'
    object adsMasterBillID: TStringField
      DisplayLabel = #24212#20184#21333'ID'
      FieldName = 'BillID'
    end
    object adsMasterBillNo: TStringField
      DisplayLabel = #24212#20184#21333#21495
      FieldName = 'BillNo'
    end
    object adsMasterBillDate: TDateTimeField
      DisplayLabel = #24320#21333#26085#26399
      FieldName = 'BillDate'
    end
    object adsMasterBillType: TStringField
      DisplayLabel = #24212#20184#31867#22411
      FieldName = 'BillType'
    end
    object adsMasterRevType: TStringField
      DisplayLabel = #28304#21333#31867#22411
      FieldName = 'RevType'
    end
    object adsMasterRevTypeName: TStringField
      DisplayLabel = #28304#21333#31867#22411
      FieldName = 'RevTypeName'
      Size = 50
    end
    object adsMasterRevBillNo: TStringField
      DisplayLabel = #28304#21333#32534#21495
      FieldName = 'RevBillNo'
    end
    object adsMasterPayDate: TDateTimeField
      DisplayLabel = #20184#27454#26399#38480
      FieldName = 'PayDate'
    end
    object adsMasterDeptID: TStringField
      DisplayLabel = #20844#21496'ID'
      FieldName = 'DeptID'
    end
    object adsMasterSupplyID: TStringField
      DisplayLabel = #20379#24212#21830'ID'
      FieldName = 'SupplyID'
    end
    object adsMasterSupplyCode: TStringField
      DisplayLabel = #20379#24212#21830#32534#30721
      FieldName = 'SupplyCode'
    end
    object adsMasterSupplyShortName: TStringField
      DisplayLabel = #20379#24212#21830#21517#31216
      FieldName = 'SupplyShortName'
    end
    object adsMasterSumMoney: TFloatField
      DisplayLabel = #24212#20184#37329#39069
      FieldName = 'SumMoney'
    end
    object adsMasterRebateMoney: TFloatField
      DisplayLabel = #25240#25187#37329#39069
      FieldName = 'RebateMoney'
    end
    object adsMasterPayMoney: TFloatField
      DisplayLabel = #24050#20184#37329#39069
      FieldName = 'PayMoney'
    end
    object adsMasterPayStatus: TWordField
      DisplayLabel = #20184#27454#24773#20917
      FieldName = 'PayStatus'
    end
    object adsMasterHasCheck: TBooleanField
      DisplayLabel = #23457#26680#21542
      FieldName = 'HasCheck'
    end
    object adsMasterChecker: TStringField
      DisplayLabel = #23457#26680#20154
      FieldName = 'Checker'
    end
    object adsMasterCheckTime: TDateTimeField
      DisplayLabel = #23457#26680#26102#38388
      FieldName = 'CheckTime'
    end
    object adsMasterWriter: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object adsMasterWriteTime: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object adsMasterModifier: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object adsMasterModifyTime: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object adsMasterRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 200
    end
  end
  inherited adsMasterEdit: TADODataSet
    CursorType = ctStatic
    CommandText = 'Select * from cw_YFPayMaster'
    object adsMasterEditBillID: TStringField
      DisplayLabel = #24212#20184#21333'ID'
      FieldName = 'BillID'
    end
    object adsMasterEditBillNo: TStringField
      DisplayLabel = #24212#20184#21333#21495
      FieldName = 'BillNo'
    end
    object adsMasterEditBillDate: TDateTimeField
      DisplayLabel = #24320#21333#26085#26399
      FieldName = 'BillDate'
    end
    object adsMasterEditBillType: TStringField
      DisplayLabel = #24212#20184#31867#22411
      FieldName = 'BillType'
    end
    object adsMasterEditRevType: TStringField
      DisplayLabel = #28304#21333#31867#22411
      FieldName = 'RevType'
    end
    object adsMasterEditRevBillNo: TStringField
      DisplayLabel = #28304#21333#32534#21495
      FieldName = 'RevBillNo'
      OnChange = adsMasterEditRevBillNoChange
    end
    object adsMasterEditPayDate: TDateTimeField
      DisplayLabel = #20184#27454#26399#38480
      FieldName = 'PayDate'
    end
    object adsMasterEditDeptID: TStringField
      DisplayLabel = #20844#21496'ID'
      FieldName = 'DeptID'
    end
    object adsMasterEditSupplyID: TStringField
      DisplayLabel = #20379#24212#21830'ID'
      FieldName = 'SupplyID'
    end
    object adsMasterEditSumMoney: TFloatField
      DisplayLabel = #24212#20184#37329#39069
      FieldName = 'SumMoney'
    end
    object adsMasterEditRebateMoney: TFloatField
      DisplayLabel = #25240#25187#37329#39069
      FieldName = 'RebateMoney'
    end
    object adsMasterEditPayMoney: TFloatField
      DisplayLabel = #24050#20184#37329#39069
      FieldName = 'PayMoney'
    end
    object adsMasterEditPayStatus: TWordField
      DisplayLabel = #20184#27454#24773#20917
      FieldName = 'PayStatus'
    end
    object adsMasterEditHasCheck: TBooleanField
      DisplayLabel = #23457#26680#21542
      FieldName = 'HasCheck'
    end
    object adsMasterEditChecker: TStringField
      DisplayLabel = #23457#26680#20154
      FieldName = 'Checker'
    end
    object adsMasterEditCheckTime: TDateTimeField
      DisplayLabel = #23457#26680#26102#38388
      FieldName = 'CheckTime'
    end
    object adsMasterEditWriter: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object adsMasterEditWriteTime: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object adsMasterEditModifier: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object adsMasterEditModifyTime: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object adsMasterEditRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 200
    end
    object adsMasterEditres_SupplyName: TStringField
      DisplayLabel = #20379#24212#21830#21517#31216
      FieldKind = fkLookup
      FieldName = 'res_SupplyName'
      LookupDataSet = res_Supply
      LookupKeyFields = 'SupplyID'
      LookupResultField = 'SupplyShortName'
      KeyFields = 'SupplyID'
      Lookup = True
    end
  end
  object adsDetail: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforePost = adsDetailBeforePost
    OnNewRecord = adsDetailNewRecord
    CommandText = 'Select * from cw_YFPayDetail where 0=1'
    EnableBCD = False
    Parameters = <>
    Left = 192
    Top = 40
    object adsDetailID: TStringField
      FieldName = 'ID'
    end
    object adsDetailBillID: TStringField
      DisplayLabel = #20851#32852'ID'
      FieldName = 'BillID'
    end
    object adsDetailCustOrderDetailNo: TStringField
      DisplayLabel = #23458#25143#35746#21333#26126#32454#21333#21495
      FieldName = 'CustOrderDetailNo'
    end
    object adsDetailCustOrderNo: TStringField
      DisplayLabel = #23458#25143#35746#21333#21495
      FieldName = 'CustOrderNo'
    end
    object adsDetailOrderDetailNo: TStringField
      DisplayLabel = #35746#21333#26126#32454#21333#21495
      FieldName = 'OrderDetailNo'
    end
    object adsDetailRevBillDetailID: TStringField
      DisplayLabel = #25910#36135#21333#26126#32454'ID'
      FieldName = 'RevBillDetailID'
    end
    object adsDetailProjectNo: TStringField
      DisplayLabel = #21345#21495'/'#32568#21495
      FieldName = 'ProjectNo'
    end
    object adsDetailType: TStringField
      DisplayLabel = #31867#22411
      FieldName = 'Type'
    end
    object adsDetailProductID: TStringField
      DisplayLabel = #20135#21697'ID'
      FieldName = 'ProductID'
    end
    object adsDetailProductCode: TStringField
      DisplayLabel = #20135#21697#32534#30721
      FieldName = 'ProductCode'
      Size = 50
    end
    object adsDetailProductName: TStringField
      DisplayLabel = #20135#21697#21517#31216
      FieldName = 'ProductName'
      Size = 100
    end
    object adsDetailSpecs: TStringField
      DisplayLabel = #22411#21495#35268#26684
      FieldName = 'Specs'
      Size = 200
    end
    object adsDetailColorID: TStringField
      DisplayLabel = #33394#21495'ID'
      FieldName = 'ColorID'
    end
    object adsDetailColorCode: TStringField
      DisplayLabel = #33394#21495
      FieldName = 'ColorCode'
    end
    object adsDetailColorName: TStringField
      DisplayLabel = #39068#33394
      FieldName = 'ColorName'
      Size = 50
    end
    object adsDetailBatchNo: TStringField
      DisplayLabel = #25209#21495
      FieldName = 'BatchNo'
      Size = 50
    end
    object adsDetailRevNumber: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'RevNumber'
    end
    object adsDetailCostPrice: TFloatField
      DisplayLabel = #25104#26412#21333#20215
      FieldName = 'CostPrice'
    end
    object adsDetailCostMoney: TFloatField
      DisplayLabel = #25104#26412#37329#39069
      FieldName = 'CostMoney'
    end
    object adsDetailRevPrice: TFloatField
      DisplayLabel = #21333#20215
      FieldName = 'RevPrice'
    end
    object adsDetailRevMoney: TBCDField
      DisplayLabel = #37329#39069
      FieldName = 'RevMoney'
      Precision = 18
      Size = 2
    end
    object adsDetailPieceCount: TFloatField
      DisplayLabel = #21305#25968
      FieldName = 'PieceCount'
    end
    object adsDetailNumber: TFloatField
      DisplayLabel = #23454#35745#25968#37327
      FieldName = 'Number'
      OnChange = adsDetailNumberChange
    end
    object adsDetailUnitID: TStringField
      DisplayLabel = #35745#20215#21333#20301'ID'
      FieldName = 'UnitID'
    end
    object adsDetailres_UnitName: TStringField
      DisplayLabel = #35745#20215#21333#20301
      FieldKind = fkLookup
      FieldName = 'res_UnitName'
      LookupDataSet = res_Unit
      LookupKeyFields = 'UnitID'
      LookupResultField = 'UnitName'
      KeyFields = 'UnitID'
      Size = 10
      Lookup = True
    end
    object adsDetailPrice: TFloatField
      DisplayLabel = #23454#35745#21333#20215
      FieldName = 'Price'
      OnChange = adsDetailPriceChange
    end
    object adsDetailMoney: TBCDField
      DisplayLabel = #23454#35745#37329#39069
      FieldName = 'Money'
      OnChange = adsDetailMoneyChange
      Precision = 18
      Size = 2
    end
    object adsDetailTaxRate: TFloatField
      DisplayLabel = #31246#29575'(%)'
      FieldName = 'TaxRate'
      OnChange = adsDetailTaxRateChange
      DisplayFormat = '0.00%'
    end
    object adsDetailTaxMoney: TFloatField
      DisplayLabel = #31246#39069
      FieldName = 'TaxMoney'
    end
    object adsDetailTotalMoney: TFloatField
      DisplayLabel = #20215#31246#21512#35745
      FieldName = 'TotalMoney'
    end
    object adsDetailWriter: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object adsDetailWriteTime: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object adsDetailModifier: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object adsDetailModifyTime: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object adsDetailRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 500
    end
  end
  object adsPayType: TADODataSet
    Connection = dtmConnect.conMain
    LockType = ltBatchOptimistic
    CommandText = 'Select * from V_cw_YFPayType'
    Parameters = <>
    Left = 320
    Top = 104
  end
  object adsUserCompany: TADODataSet
    Connection = dtmConnect.conMain
    LockType = ltBatchOptimistic
    CommandText = 
      'select b.DeptID, b.DeptCode, b.DeptName from xt_CompanySet a '#13#10'j' +
      'oin da_Department b on a.CompanyID=b.DeptID'#13#10'where a.UserID=(sel' +
      'ect UserID from xt_Users where UserCode=:UserCode)'#13#10'and isnull(b' +
      '.HasStop,0)=0'
    Parameters = <
      item
        Name = 'UserCode'
        Size = -1
        Value = Null
      end>
    Left = 464
    Top = 40
  end
  object res_Supply: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 
      'Select SupplyID, SupplyCode, SupplyShortName, SupplyFullName fro' +
      'm V_da_Supply'
    Parameters = <>
    Left = 320
    Top = 40
  end
  object adsBrowseDetail: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforePost = adsDetailBeforePost
    OnNewRecord = adsDetailNewRecord
    CommandText = 'Select * from cw_YFPayDetail where 0=1'
    EnableBCD = False
    Parameters = <>
    Left = 192
    Top = 104
    object adsBrowseDetailID: TStringField
      FieldName = 'ID'
    end
    object adsBrowseDetailBillID: TStringField
      DisplayLabel = #20851#32852'ID'
      FieldName = 'BillID'
    end
    object adsBrowseDetailCustOrderDetailNo: TStringField
      DisplayLabel = #23458#25143#35746#21333#26126#32454#21333#21495
      FieldName = 'CustOrderDetailNo'
    end
    object adsBrowseDetailCustOrderNo: TStringField
      DisplayLabel = #23458#25143#35746#21333#21495
      FieldName = 'CustOrderNo'
    end
    object adsBrowseDetailOrderDetailNo: TStringField
      DisplayLabel = #35746#21333#26126#32454#21333#21495
      FieldName = 'OrderDetailNo'
    end
    object adsBrowseDetailRevBillDetailID: TStringField
      DisplayLabel = #25910#36135#21333#26126#32454'ID'
      FieldName = 'RevBillDetailID'
    end
    object adsBrowseDetailProjectNo: TStringField
      DisplayLabel = #21345#21495'/'#32568#21495
      FieldName = 'ProjectNo'
    end
    object adsBrowseDetailType: TStringField
      DisplayLabel = #31867#22411
      FieldName = 'Type'
    end
    object adsBrowseDetailProductID: TStringField
      DisplayLabel = #20135#21697'ID'
      FieldName = 'ProductID'
    end
    object adsBrowseDetailProductCode: TStringField
      DisplayLabel = #20135#21697#32534#30721
      FieldName = 'ProductCode'
      Size = 50
    end
    object adsBrowseDetailProductName: TStringField
      DisplayLabel = #20135#21697#21517#31216
      FieldName = 'ProductName'
      Size = 100
    end
    object adsBrowseDetailSpecs: TStringField
      DisplayLabel = #22411#21495#35268#26684
      FieldName = 'Specs'
      Size = 200
    end
    object adsBrowseDetailColorID: TStringField
      DisplayLabel = #33394#21495'ID'
      FieldName = 'ColorID'
    end
    object adsBrowseDetailColorCode: TStringField
      DisplayLabel = #33394#21495
      FieldName = 'ColorCode'
    end
    object adsBrowseDetailColorName: TStringField
      DisplayLabel = #39068#33394
      FieldName = 'ColorName'
      Size = 50
    end
    object adsBrowseDetailBatchNo: TStringField
      DisplayLabel = #25209#21495
      FieldName = 'BatchNo'
      Size = 50
    end
    object adsBrowseDetailRevNumber: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'RevNumber'
    end
    object adsBrowseDetailCostPrice: TFloatField
      DisplayLabel = #25104#26412#21333#20215
      FieldName = 'CostPrice'
    end
    object adsBrowseDetailCostMoney: TFloatField
      DisplayLabel = #25104#26412#37329#39069
      FieldName = 'CostMoney'
    end
    object adsBrowseDetailRevPrice: TFloatField
      DisplayLabel = #21333#20215
      FieldName = 'RevPrice'
    end
    object adsBrowseDetailRevMoney: TBCDField
      DisplayLabel = #37329#39069
      FieldName = 'RevMoney'
      Precision = 18
      Size = 2
    end
    object adsBrowseDetailPieceCount: TFloatField
      DisplayLabel = #21305#25968
      FieldName = 'PieceCount'
    end
    object adsBrowseDetailNumber: TFloatField
      DisplayLabel = #23454#35745#25968#37327
      FieldName = 'Number'
    end
    object adsBrowseDetailUnitID: TStringField
      DisplayLabel = #21333#20301'ID'
      FieldName = 'UnitID'
    end
    object adsBrowseDetailres_UnitName: TStringField
      DisplayLabel = #21333#20301
      FieldKind = fkLookup
      FieldName = 'res_UnitName'
      LookupDataSet = res_Unit
      LookupKeyFields = 'UnitID'
      LookupResultField = 'UnitName'
      KeyFields = 'UnitID'
      Size = 10
      Lookup = True
    end
    object adsBrowseDetailPrice: TFloatField
      DisplayLabel = #23454#35745#21333#20215
      FieldName = 'Price'
    end
    object adsBrowseDetailMoney: TBCDField
      DisplayLabel = #23454#35745#37329#39069
      FieldName = 'Money'
      Precision = 18
      Size = 2
    end
    object adsBrowseDetailTaxRate: TFloatField
      DisplayLabel = #31246#29575'(%)'
      FieldName = 'TaxRate'
      DisplayFormat = '0.00%'
    end
    object adsBrowseDetailTaxMoney: TFloatField
      DisplayLabel = #31246#39069
      FieldName = 'TaxMoney'
    end
    object adsBrowseDetailTotalMoney: TFloatField
      DisplayLabel = #20215#31246#21512#35745
      FieldName = 'TotalMoney'
    end
    object adsBrowseDetailWriter: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object adsBrowseDetailWriteTime: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object adsBrowseDetailModifier: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object adsBrowseDetailModifyTime: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object adsBrowseDetailRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 500
    end
  end
  object frdsDetail: TfrDBDataSet
    DataSet = adsDetail
    Left = 56
    Top = 160
  end
  object res_Unit: TADODataSet
    Active = True
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'Select UnitID, UnitCode, UnitName from V_da_Unit'
    Parameters = <>
    Left = 464
    Top = 104
  end
  object adsStuffIn: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 
      'Select * from V_ck_StuffBillDetail where BillNo=:BillNo'#13#10'  and B' +
      'illType=1 and isnull(SysInOutType,0) in(0,2,5)'
    Parameters = <
      item
        Name = 'BillNo'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    Left = 192
    Top = 296
  end
  object adsStripIn: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 
      'Select * from V_ck_StripBillDetail where BillNo=:BillNo'#13#10'  and B' +
      'illType=1 and SysInOutType in(0,2,5)'
    Parameters = <
      item
        Name = 'BillNo'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    Left = 192
    Top = 232
  end
  object adsProductIn: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 
      'Select * from V_ck_ProductBillDetail where BillNo=:BillNo'#13#10'  and' +
      ' BillType=1 and SysInOutType in(0,2,5)'
    EnableBCD = False
    Parameters = <
      item
        Name = 'BillNo'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    Left = 192
    Top = 168
  end
  object adsStuffOut: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 
      'Select * from V_ck_StuffBillDetail where BillNo=:BillNo'#13#10'  and B' +
      'illType=2 and SysInOutType in (10,14)'
    Parameters = <
      item
        Name = 'BillNo'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    Left = 320
    Top = 296
  end
  object adsStripOut: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 
      'Select * from V_ck_StripBillDetail where BillNo=:BillNo'#13#10'  and B' +
      'illType=2 and SysInOutType in (10,14)'
    Parameters = <
      item
        Name = 'BillNo'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    Left = 320
    Top = 232
  end
  object adsProductOut: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 
      'Select * from V_ck_ProductBillDetail where BillNo=:BillNo'#13#10'  and' +
      ' BillType=2 and SysInOutType in (10,14)'
    EnableBCD = False
    Parameters = <
      item
        Name = 'BillNo'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    Left = 320
    Top = 168
  end
end
